NumOn


Purpose   Indicates if the Num Lock key is on.

Decln.    NumOn:boolean;

Returns   Boolean

Remarks   Returns true if the Num Lock key is "illuminated".

Example

BEGIN
    IF NUMON THEN
       WRITEAT(70,1,WHITE,BLACK,'NUM')
    ELSE
       WRITEAT(70,1,WHITE,BLACK,'   ')
END;